Family Forum 260/SOMC Family Forum 260 - Disc 2.iso/somc/Beakman.dir/00001_Script_Start Movie

Text File | 1999-01-15 | 4KB | 154 lines

on startMovie

  --* set the paths and exe for the setups

  global K1SETUP,K2SETUP,K3SETUP,K4SETUP
  set K1SETUP to "C:\MOOKY3\start.exe"
  set K2SETUP to "C:\MOOKY3\start.exe"
  set K3SETUP to "C:\MOOKY3\start.exe"
  set K4SETUP to "C:\MOOKY3\start.exe"



  --* set weblink URLs

  global LINK1,LINK2,LINK3,LINK4,LINK5,LINK6,LINK7,LINK8,LINK9,LINK10
  set link1 to "http://www.screenit.com"
  set link2 to "http://www.discovery.com"
  set link3 to "http://www.disney.com"
  set link4 to "http://www.nick.com"
  set link5 to "http://www.dccomics.com"
  set link6 to "http://www.nasa.gov"
  set link7 to "http://www.whitehouse.gov"
  set link8 to "http://www.starwars.com"
  set link9 to "http://www.ctw.org"
  set link10 to "http://www.4kids.com"

   --* This declares the variables for the finger cursor. *

  global FINGER, FINGERMASK
  set FINGER to the number of member "Finger1"
  set FINGERMASK to the number of member "Finger2"


  glowClear()

end




--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 27 to 30
    glow(i)
    glow(3,FALSE)
    glow(4,FALSE)
    end repeat
end

-- Delays for x number of seconds
on timedelay SECONDS
  startTimer
  repeat while the timer < SECONDS * 60
    nothing
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow


--* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
--on mouseEnter
--  if not count(the windowList) then
--    doRollover(52)
--  end if
--end
--
--
--on mouseLeave
--  if not count(the windowList) then
--    doRollout(52)
--  end if
--end



--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *

on doRollover numsprite
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  puppetsound 1, "rollsound"
  --  repeat while soundbusy(1)
  --  end repeat
end


on doRollover2 numsprite
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  puppetsound 1, "rollsound2"
  --  repeat while soundbusy(1)
  --  end repeat
end

on doRollover3 numsprite
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  --  puppetsound 1, "rollsound2"
  --  repeat while soundbusy(1)
  --  end repeat
end

--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end